Creating images with R

knitr::opts_chunk$set(echo = TRUE, message = FALSE, error = FALSE, warning = FALSE)

My Meme

This meme shows that how I feel when I finally have a chance to go on a holiday.

I really intend to see Japan with my own eyes. Now, all I am waiting for is just the semester break so that I can have holiday for my travelling. That’s the reason why I created this meme which can demonstrate my feeling and my desire for a holiday!

My meme is original as I use the doge picture from the internet but I edit the content by myself. This has been done by using R.

Here is my meme

p {font-weight: bold}

library(magick)

doge <- image_read("https://icdn.2cda.pl/obr/oryginalne/4fcd51c4f720a21deff65227424a9e93.jpg")

doge <- image_resize(doge, "400x400!")

#make a black background and white text

background <- image_blank(width=400, height=400, color = "#000000")
background <- image_annotate(background, 
                             "ME WHEN I \nFINALLY \nGET TO \nGO ON A \nHOLIDAY", 
                             font="Avenir", 
                             gravity = "center", 
                             color = "white",
                             size=50)

meme <- (c(doge, background)) %>% 
image_append(stack=FALSE)
meme
#save the meme
meme %>% image_write("my_meme.png")

My animated GIF

This GIF portrays how my dream trip will be like.

My GIF is original as the background pictures and the doge are combined by myself using R.

Here is my meme

p {font-weight: bold}
p.double {border-style: double;}

library(magick)

background_1 <- image_read("japan travel.jpg")
background_2 <- image_read("japan travel2.jpg")
background_3 <- image_read("japan travel3.jpg")
background_4 <- image_read("japan travel4.jpg")

#combine all the background
bg <- c(background_1, 
        background_2, 
        background_3, 
        background_4)
bg <- image_animate(image_scale(bg, "400x300"), fps = 1, dispose = "previous")

dog <- image_read("https://media.tenor.com/eWD0v1SeTY8AAAAi/hh.gif")
dog <- image_scale(dog, "150")

#combine the background and doge, make it a gif
frames <- image_composite(bg, dog,  offset = "+90")
animation <- image_animate(frames, fps = 100)

animation %>% image_write("my_animation.gif")

body {
  background-color: #eee;
  font-family: "Lucida Console", "Courier New", monospace;
}